VERSION = 3.00 ||%#U6TTTUTHISSAVECONTROLSOURCE CONTROLSOURCEVALUETCT%C m%< == LIKE <> != # = > &TCC. H CbCM(9TCC. = C" C"  CbDTp3TCC. = {}2-TCC. = TTU CCONDITIONTHISVALUECCONTROLSOURCESAVECONTROLSOURCE CONDITION CONTROLSOURCEenterqbe,exitqbe113!aQQ1AAA12k_)|jPROCEDURE enterqbe THIS.saveControlSource = THIS.controlSource THIS.controlSource = "" THIS.Value = "" ENDPROC PROCEDURE exitqbe cCondition = ALLTRIM(THIS.Value) cControlSource = THIS.SaveControlSource IF !EMPTY(cCondition) THEN IF ("<" $ cCondition OR "==" $ cCondition OR "LIKE" $ cCondition ; OR "<>" $ cCondition OR "!=" $ cCondition OR "#" $ cCondition ; OR "=" $ cCondition OR ">" $ cCondition) THEN THIS.Condition = SUBSTRC(cControlSource,(RATC(".",cControlSource)+1)) + cCondition ELSE ** Need to put the proper delimiters around comparison values of certain types DO CASE CASE TYPE(cControlSource) $ "CM" THIS.Condition = SUBSTRC(cControlSource,(RATC(".",cControlSource)+1)) + " = " + CHR(34) + cCondition + CHR(34) CASE TYPE(cControlSource) $ "DT" THIS.Condition = SUBSTRC(cControlSource,(RATC(".",cControlSource)+1)) + " = {" + cCondition + "}" OTHERWISE THIS.Condition = SUBSTRC(cControlSource,(RATC(".",cControlSource)+1)) + " = " + cCondition ENDCASE ENDIF ELSE THIS.Condition = "" ENDIF THIS.ControlSource = THIS.SaveControlSource ENDPROC textbox[FontBold = .F. FontSize = 9 Height = 22 Width = 113 condition = Name = "qbetextbox" savecontrolsource Saves the controlSource of the textbox when in QBE mode. condition Saves the condition specified after leaving QBE mode. *enterqbe Enters the field into QBE mode. *exitqbe Exits QBE Mode.  qbetextboxtextbox1ClassPixelssavecontrolsource  qbetextbox!Arial, 0, 9, 5, 15, 12, 13, 3, 0